inicio
	inteiro:x;
	leia(x);
fim

{Nossa nota}
inicio
	inteiro: x;
	x <- 100;
	imprima("passaremos com \n",x);
fim

{fatorial iterativo}
inicio
    inteiro:x, y, fat;
    imprima("Digite um numero: ");
	leia(x);
	y <- x;
    fat <- x;
    enquanto (y > 1) faca  
		inicio
			y <- y -1;
			fat <- fat * y;
		fim
    fimenquanto;
	
	imprima("\nO fatorial de ", x," e: ",fat);
fim


inicio
inteiro:x;
x<-3;
enquanto(x>1)faca
inicio
	imprima("x");
	x <- x - 1;

fimenquanto
fim



{fatorial recursivo}
inicio
	inteiro: fat;
	funcao fatorial(x):inteiro;
	inicio
		inteiro:x;
		se (x < 2) entao
			inicio
				fatorial <- 1;
				quebra;
			fim
		senao
			inicio
				fatorial <- x * fatorial(x-1);
				quebra;
			fim
		fimse
	fim
	
	fat <- fatorial(13);
	imprima("o fatorial de 13 e :", fat);
fim

inicio
	vetor[1:100] inteiro: x;
	inteiro:resultado;
	procedimento soma(a);
	inicio
		vetor[1:100] inteiro: a;
		resultado <- a[1]+a[2];
		imprima("a[1]: ",a[1],"\n");
		imprima("b[1]: ",a[2],"\n");
		
		imprima("resultado ",resultado,"\n");
	fim
	
	x[1] <- 2;
	x[2] <- 4;
	soma(x);
fim

{teste leitura vetor}
inicio
	vetor[1:10] inteiro : x;
	inteiro: i, val;
	
	i <- 1;
	enquanto (i<=10) faca
	inicio
		imprima("\ndigite o numero, ",i,": ");
		leia(val);
		x[i] <- val;
		i<-i+1;
	fim
	fimenquanto;

	imprima(x[1],"\n");
	imprima(x[2],"\n");
	imprima(x[3],"\n");
	
	imprima("\n");
	
	i <- 1;
	enquanto (i <= 3) faca
	inicio
		val <- x[i];
		imprima(x[i],"\n");
		i <- i+1;
	fim
	fimenquanto;
fim

inicio
	inteiro:i;
	vetor[1:10] inteiro: v;
	
	i <- 2;
	v[i] <- 70;
	i <- v[i];
	imprima(i);
fim




inicio
	inteiro:i,j;
	
	i <- 2;
	j <- 7;
	j <- i;
	imprima(j);
fim

inicio
vetor [1:2] inteiro: vet;
inteiro:aux;
vet[1] <- 5;
vet[2] <- 4;

aux <- vet[1];
vet[1] <- vet[2];
vet[2] <- aux;

imprima(vet[1]);
imprima(vet[2]);

fim

